<script>on mouseUpget line 1 of field "Nummer"put field "Kastennummer" into derzeitif it Γëñ derzeit thenput 1 into field "Kastennummer"elseput field "Kastennummer" + 1 into field "Kastennummer"end ifif field "Kasteninfo" is not hidden thenget field "Kastennummer"put field "Kommentar" of card "Liste" && it into field "Kasteninfo"end ifend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>261</left>
<top>319</top>
<right>290</right>
<bottom>341</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17779</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Zur├╝ck</name>
<script>on mouseUpget line 1 of field "Nummer"put field "Kastennummer" into derzeitif derzeit = 1 thenput it into field "Kastennummer"elseput field "Kastennummer" - 1 into field "Kastennummer"end ifif field "Kasteninfo" is not hidden thenget field "Kastennummer"put field "Kommentar" of card "Liste" && it into field "Kasteninfo"end ifend mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>60</left>
<top>51</top>
<right>117</right>
<bottom>91</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Verteiler</name>
<script>on mouseUpvisual effect zoom opengo to card "Stammsammlung"end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>7</left>
<top>49</top>
<right>46</right>
<bottom>96</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Stammliste</name>
<script>on mouseUpget field "Kastennummer"visual effect zoom opengo to card "Liste" && itend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>111</top>
<right>45</right>
<bottom>150</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>31283</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Autoklav</name>
<script>on mouseUpglobal Müllabfuhr, Ständern, Stammcopyif Müllabfuhr is not true thenif Ständern is true thenput false into Ständernset the icon of background button "Stammdaten" to "Stammändern1"end ifif Stammcopy is true thenput empty into Stammcopyset the icon of background button "Stamm kopieren" to "Stamm kopieren"put "Copy" & return & "Strain" into field "Stamm kopieren"put "“Copy Strain” canceled!" into field "Stammbeschreibung"idleCursor(hand)end ifset the icon of background button Autoklav to 27640put true into Müllabfuhrput "Choose strain position for erasure or click trash to cancel!" into field "Stammbeschreibung"elseput false into Müllabfuhrset the icon of background button Autoklav to 31283if Stammcopy is not empty then idleCursor("Stammein")end ifend mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>126</left>
<top>93</top>
<right>250</right>
<bottom>180</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>Nummer</name>
<script></script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>10</left>
<top>179</top>
<right>47</right>
<bottom>212</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5203</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Kasteninfo</name>
<script>on mouseUpget field "Kastennummer"put field "Kommentar" of card "Liste" && it into field "Kasteninfo"set lockText of field "Kasteninfo" to trueshow field "Kasteninfo"end mouseUp</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>194</left>
<top>37</top>
<right>454</right>
<bottom>297</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Lokalisator</name>
<script>on mouseUpglobal Müllabfuhr, Position, Hunderter, Neuein, Ständern, Stammcopy, Ansehenget the clickLocput 1 + trunc((item 1 of it - 194)/26) + 10 * trunc((item 2 of it - 37)/26) into Positionput field "Kastennummer" into Hunderterif word 2 of line Position of field "Liste" of card "Liste" && field "Kastennummer" is empty thenif Ständern is true thenanswer "This position is not filled!"put false into Ständernset the icon of background button "Stammdaten" to "Stammändern1"else if Müllabfuhr is true thenanswer "This position is already empty!"put false into Müllabfuhrset the icon of background button Autoklav to 31283else if Stammcopy is true thenanswer "This position is not filled!"else if Stammcopy is not empty then-- Stamm einfügenset cursor to 4set lockScreen to trueput Stammcopy into the last char of line Position of field "Liste" of card ("Liste" && field "Kastennummer")repeat with Buchstabe = 4 to 18set textStyle of char Buchstabe of line Position of field "Liste" of ¬card "Liste" && field "Kastennummer" to bold,underlineend repeatset textStyle of char 19 of line Position of field "Liste" of ¬card "Liste" && field "Kastennummer" to plainset the icon of background button "Stamm kopieren" to "Stamm kopieren"put "Copy" & return & "Strain" into field "Stamm kopieren"put "Inserted: " & (field "Kastennummer" - 1) & "/" & Position into field "Stammbeschreibung"put Stammcopy after field "Stammbeschreibung"get field "Maximal"if it < (100 * (field "Kastennummer" - 1) + Position) thenput (100 * (field "Kastennummer" - 1) + Position) into field "Maximal"end ifput empty into Positionput empty into StammcopyidleCursor(hand)else if Ansehen is true thenanswer "This position is not filled!"elseput true into Neueingo card "Genauswahl"put (Position + (100 * (Hunderter - 1))) into field "Position"set lockscreen to falseclick at the loc of field "Stammname" -- Neueingabeexit mouseUpend ifelseif Ständern is true thenset cursor to 4set lockScreen to truego card "Genauswahl"put (Position + (100 * (Hunderter - 1))) into field "Position"put word 2 of line Position of field "Liste" of card "Liste"¬&& Hunderter into field "Stammname"set the hilite of background button "a" to falseset the hilite of background button "a lpha" to falseset the hilite of background button "a 2" to falseset the hilite of background button "a lpha2" to falseif the CharToNum of char 1 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 187 thenset the hilite of background button "a lpha" to trueelseif char 1 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is "a" thenset the hilite of background button "a" to trueend ifend ifif the number of chars of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 3 thenset the hilite of background button "diploid" to trueshow background button "a 2"show background button "a lpha2"if the CharToNum of char 3 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 187 thenset the hilite of background button "a lpha2" to trueelseif char 3 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is "a" thenset the hilite of background button "a 2" to trueend ifend ifend if-- PT setzenrepeat with Rüber = 4 to the number of words of line ¬Position of field "Liste" of card "Liste" && Hunderterget word Rüber of line Position of field "Liste" of card "Liste"¬&& Hunderterif it is tab thenget word (Rüber + 1) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 2 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Plasmid"elseput char Buchstabe of it after field "Plasmid"end ifend repeatget word (Rüber + 3) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "AltNamen"elseput char Buchstabe of it after field "AltNamen"end ifend repeatget word (Rüber + 5) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Herkunft"elseput char Buchstabe of it after field "Herkunft"end ifend repeatget word (Rüber + 7) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Stammkommentar"elseput char Buchstabe of it after field "Stammkommentar"end ifend repeatexit repeatelseput it & return after field "Stammauswahl"end ifend repeat-- Auslesen der Datenput true into Neueinset icon of background button "Stammdaten" of card "Kastentemplate" to "Stammändern1"set lockScreen to falseelse if Stammcopy is true then-- Stamm kopierenget line Position of field "Liste" of card ("Liste" && field "Kastennummer")put it into Stammcopyput empty into word 1 of Stammcopy -- Löschen der NummeridleCursor("Stammein")set the icon of background button "Stamm kopieren" to "nicht einfügen"put "Don't" & return & "Insert" into field "Stamm kopieren"put "Choose “Don't Insert” or requested position in the box for:" && Stammcopy into ¬field "Stammbeschreibung" of card "Kastentemplate"else if (Stammcopy is not empty) and (Müllabfuhr is not true) then-- Platz zum Einfügen belegtanswer "This position is already taken!"else if Ansehen is true thenset cursor to 4set lockScreen to truego card "Genauswahl"put (Position + (100 * (Hunderter - 1))) into field "Position"put word 2 of line Position of field "Liste" of card "Liste"¬&& Hunderter into field "Stammname"set the hilite of background button "a" to falseset the hilite of background button "a lpha" to falseset the hilite of background button "a 2" to falseset the hilite of background button "a lpha2" to falseif the CharToNum of char 1 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 187 thenset the hilite of background button "a lpha" to trueelseif char 1 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is "a" thenset the hilite of background button "a" to trueend ifend ifif the number of chars of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 3 thenset the hilite of background button "diploid" to trueshow background button "a 2"show background button "a lpha2"if the CharToNum of char 3 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is 187 thenset the hilite of background button "a lpha2" to trueelseif char 3 of word 3 of line Position of field "Liste" of card "Liste"¬&& Hunderter is "a" thenset the hilite of background button "a 2" to trueend ifend ifend if-- PT setzenrepeat with Rüber = 4 to the number of words of line ¬Position of field "Liste" of card "Liste" && Hunderterget word Rüber of line Position of field "Liste" of card "Liste"¬&& Hunderterif it is tab thenget word (Rüber + 1) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 2 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Plasmid"elseput char Buchstabe of it after field "Plasmid"end ifend repeatget word (Rüber + 3) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "AltNamen"elseput char Buchstabe of it after field "AltNamen"end ifend repeatget word (Rüber + 5) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Herkunft"elseput char Buchstabe of it after field "Herkunft"end ifend repeatget word (Rüber + 7) of line Position of field "Liste" of card "Liste"¬&& Hunderterrepeat with Buchstabe = 1 to the number of chars of itif chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werdenput space after field "Stammkommentar"elseput char Buchstabe of it after field "Stammkommentar"end ifend repeatexit repeatelseput it & return after field "Stammauswahl"end ifend repeat-- Auslesen der Datensend mouseUp to button "Blättern"visual effect iris openelseset cursor to 4get line Position of field "Liste" of card "Liste" && Hunderterput (Hunderter - 1) & "/" into field "Stammbeschreibung"put it after field "Stammbeschreibung"if Müllabfuhr is true thenanswer "Really erase this strain?" with "Yes, indeed!" or "No"if it is "Yes, indeed!" thenset cursor to 4get word 1 of line Position of field "Liste" of card "Liste" ¬&& Hunderterput space into line Position of field "Liste" of card "Liste" && Hunderterput it before line Position of field "Liste" of card "Liste" && Hunderterset TextStyle of char 1 of line Position of field "Liste" of card "Liste" ¬&& Hunderter to boldset TextStyle of char 2 of line Position of field "Liste" of card "Liste" ¬&& Hunderter to boldset TextStyle of char 3 of line Position of field "Liste" of card "Liste" ¬&& Hunderter to plainend ifput false into Müllabfuhrset the icon of background button Autoklav to 31283end ifput empty into Positionend ifend ifend mouseUpon mousewithinget the mouseLocput 1 + trunc((item 1 of it - 194)/26) + 10 * trunc((item 2 of it - 37)/26) into Positionget field "Kastennummer"put 100 * (it - 1) + Position into field "Mausposition" of card "Kastentemplate"end mousewithinon mouseEnterglobal Müllabfuhr, Ständern, Stammcopy, Ansehenif the optionKey is down and Müllabfuhr is not true and Ständern is not true and Stammcopy is empty thenput true into AnsehenidleCursor("Lupe")end ifend mouseEnteron mouseLeaveglobal Ansehenput empty into field "Mausposition" of card "Kastentemplate"if Ansehen is true thenidleCursor(Hand)put false into Ansehenend ifend mouseLeave</script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>192</left>
<top>35</top>
<right>452</right>
<bottom>296</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Kasteninfo</name>
<script>on mouseUphide field "Kasteninfo"end mouseUp</script>
</part>
<part>
<id>28</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>171</left>
<top>18</top>
<right>512</right>
<bottom>319</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>14</textHeight>
<name>Kommentar</name>
<script>on mouseUphide field "Kommentar"set the scroll of field "Kommentar" to 0end mouseUp</script>
</part>
<part>
<id>29</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>1</left>
<top>242</top>
<right>172</right>
<bottom>320</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>11</textHeight>
<name>Stammbeschreibung</name>
<script></script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>60</left>
<top>175</top>
<right>108</right>
<bottom>210</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27689</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Ändern</name>
<script>on mouseUpget field "Kastennummer"put field "Kommentar" of card "Liste" && it into field "Kasteninfo"show field "Kasteninfo"answer "Enter or Modify Box Info"set lockText of field "Kasteninfo" to falseshow background button "Enter Box Info"show background button "Don't Enter Box Info"end mouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>62</left>
<top>110</top>
<right>115</right>
<bottom>153</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>14195</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Stammdaten</name>
<script>on mouseUpglobal Ständern, Müllabfuhr, Stammcopyif Ständern is true thenput false into Ständernset the icon of background button "Stammdaten" to "Stammändern1"elseput true into Ständernif Müllabfuhr is true thenput false into Müllabfuhrset the icon of background button Autoklav to 31283end ifif Stammcopy is not empty thenput empty into Stammcopyset the icon of background button "Stamm kopieren" to "Stamm kopieren"put "Copy" & return & "Strain" into field "Stamm kopieren"idleCursor(hand)end ifset the icon of background button "Stammdaten" to "Stammändern2"put "Click box position of the strain to modify!" into field "Stammbeschreibung"end ifend mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>120</left>
<top>109</top>
<right>173</right>
<bottom>154</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>15210</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Stamm kopieren</name>
<script>on mouseUpglobal Stammcopy, Position, Ständern, Müllabfuhrif Ständern is true thenput false into Ständernset the icon of background button "Stammdaten" to "Stammändern1"end ifif Müllabfuhr is true thenput false into Müllabfuhrset the icon of background button Autoklav to 31283end ifif Stammcopy is empty thenset the icon of background button "Stamm kopieren" to "nicht kopieren"put "Don't" & return & "Copy" into field "Stamm kopieren"put "Choose requested strain position or “Don't Copy”!" into field "Stammbeschreibung"put true into StammcopyidleCursor("Stammaus")elseset the icon of background button "Stamm kopieren" to "Stamm kopieren"put "Copy" & return & "Strain" into field "Stamm kopieren"put "“Copy Strain” canceled!" into field "Stammbeschreibung"put empty into StammcopyidleCursor(hand)end ifend mouseUp</script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>120</left>
<top>175</top>
<right>173</right>
<bottom>210</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11714</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Info</name>
<script>on mouseUpshow field "Kommentar"end mouseUp</script>
</part>
<part>
<id>35</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>120</left>
<top>151</top>
<right>172</right>
<bottom>176</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>11</textHeight>
<name>Stamm kopieren</name>
<script></script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>122</left>
<top>47</top>
<right>161</right>
<bottom>91</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>12037</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Suchergebnis</name>
<script>on mouseUpset lockscreen to truego to card "Findetemplate"go prevset lockscreen to falseif the short name of this card is "Stammsammlung" then answer ¬"No search results available"end mouseUp</script>
</part>
<part>
<id>38</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>3</left>
<top>47</top>
<right>174</right>
<bottom>137</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Enter Box Info</name>
<script>on mouseUpset lockText of field "Kasteninfo" to trueget field "Kastennummer"put field "Kasteninfo" into field "Kommentar" of card "Liste" && ithide background button "Enter Box Info"hide background button "Don't Enter Box Info"end mouseUp</script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>3</left>
<top>136</top>
<right>174</right>
<bottom>228</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Don't Enter Box Info</name>
<script>on mouseUpset lockText of field "Kasteninfo" to truehide background button "Enter Box Info"hide background button "Don't Enter Box Info"end mouseUp</script>
</part>
<part>
<id>40</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>412</left>
<top>323</top>
<right>462</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Maximal</name>
<script></script>
</part>
<name>Kasten</name>
<script>on openCardglobal Ständern, Stammcopyset lockScreen to trueput "For a comprehensive strain survey, " into field "Stammbeschreibung"put "enter box with the optionKey down and choose strain position; " after field "Stammbeschreibung"put "for a faster display, enter box without the optionKey and click." after field "Stammbeschreibung"hide field "Kommentar"set the scroll of field "Kommentar" to 0hide field "Kasteninfo"put false into Ständernput empty into field "Mausposition"if Stammcopy is not empty thenidleCursor("Stammein")set the icon of background button "Stamm kopieren" to "nicht einfügen"put "Don't" & return & "Insert" into field "Stamm kopieren"put "Choose “Don't Insert” or requested position in the box for:" && Stammcopy into ¬field "Stammbeschreibung" of card "Kastentemplate"put Stammcopy after field "Stammbeschreibung"end ifend openCardon doMenu Wasif Was is "Delete Card" or Was is "Cut Card" thenAnswer "Leave the card alone!"elsepass doMenuend ifend doMenuon closeCardglobal Müllabfuhr, Stammcopy, Ansehenif Stammcopy is true thenput empty into Stammcopyend ifif Ansehen is true then send mouseLeave to background button "Lokalisator"put false into Müllabfuhrset lockScreen to trueidleCursor(hand)set the icon of background button Autoklav to 31283set the icon of background button "Stammdaten" to "Stammändern1"set the icon of background button "Stamm kopieren" to "Stamm kopieren"put "Copy" & return & "Strain" into field "Stamm kopieren"hide field "Kasteninfo"set lockText of field "Kasteninfo" to falsehide background button "Enter Box Info"hide background button "Don't Enter Box Info"show menuBarpass closeCardend closeCard</script>